home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / function.arc / FUNC4F.INC < prev    next >
Encoding:
Text File  |  1985-06-15  |  384 b   |  15 lines
  1. { Find the next matching file                                          }
  2.  
  3. FUNCTION Func4F : BOOLEAN;
  4.  BEGIN
  5.   WITH Registers DO
  6.    BEGIN
  7.     AX:=((AX AND $00FF) OR ($4F SHL 8));
  8.     MSDOS (Registers);
  9.     IF (Flags AND $0001)=1 THEN
  10.       Func4F:=TRUE
  11.     ELSE
  12.      Func4F:=FALSE;
  13.    END;
  14.  END;
  15.